Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-2/card_33044.txt

Text File | 1990-08-07 | 6.0 KB | 299 lines

-- card: 33044 from stack: in.0-2
-- bmap block id: 35746
-- flags: 0000
-- background id: 10385
-- name:
----- HyperTalk script -----
on closeCard
  hideOtherFields
  unhiliteButtons
end closeCard

on unhiliteButtons
  repeat with n = 1 to 4
    set the hilite of btn ("n" & n) to false
  end repeat
end unhiliteButtons

on hideOtherFields
  repeat with n = 1 to 4
    hide cd fld ("p" & n)
  end repeat
end hideOtherFields

on showMyField
  put last char of short name of target into whatNumber
  set the hilite of btn ("n" & whatNumber) to true
  show cd fld ("p" & whatNumber)
end showMyField


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=396 top=275 right=296 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  lock screen
  go prev
  unlock screen with wipe left
end mouseUp



-- part 2 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=98 top=247 right=286 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: p1
----- HyperTalk script -----
on mouseUp
  unhiliteButtons
  hide me
end mouseUp


-- part 3 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=98 top=247 right=286 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: p2
----- HyperTalk script -----
on mouseUp
  unhiliteButtons
  hide me
end mouseUp


-- part 4 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=98 top=247 right=286 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: p3
----- HyperTalk script -----
on mouseUp
  unhiliteButtons
  hide me
end mouseUp


-- part 5 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=98 top=247 right=286 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: p4
----- HyperTalk script -----
on mouseUp
  unhiliteButtons
  hide me
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=120 top=226 right=245 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: n1


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=184 top=226 right=245 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: n2


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=250 top=226 right=245 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: n3


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=316 top=226 right=245 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: n4


-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=99 top=162 right=246 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: s1
----- HyperTalk script -----
on mouseUp
  lock screen
  unhiliteButtons
  hideOtherFields
  unlock screen
  lock screen
  showMyField
  unlock screen with wipe right
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=166 top=162 right=246 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: s2
----- HyperTalk script -----
on mouseUp
  lock screen
  unhiliteButtons
  hideOtherFields
  unlock screen
  lock screen
  showMyField
  unlock screen with wipe right
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=231 top=162 right=246 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: s3
----- HyperTalk script -----
on mouseUp
  lock screen
  unhiliteButtons
  hideOtherFields
  unlock screen
  lock screen
  showMyField
  unlock screen with wipe right
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=298 top=162 right=246 bottom=361
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: s4
----- HyperTalk script -----
on mouseUp
  lock screen
  unhiliteButtons
  hideOtherFields
  unlock screen
  lock screen
  showMyField
  unlock screen with wipe right
end mouseUp



-- part contents for card part 2
----- text -----
This is a sample of our new “Duratest” upholstery fabric, which is stain-resistant and hardy.

-- part contents for card part 3
----- text -----
This is “ScotWeave”, a new line of water-resistant fabric, for raincoats and umbrellas.

-- part contents for card part 4
----- text -----
This is our new no-iron “Light Linen”— it comes in 30 colors & patterns, and lives up to its name.

-- part contents for card part 5
----- text -----
We are going after the growing menswear market with this line of silk/wool suiting fabric.